home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_A.d64 / mad in soef (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  68 lines
  1. 5 poke53280,14:poke53281,6:print"[147][142][154]";
  2. 10 s$="mad in soef![146]":z$=chr$(34):e$="--- verloren ---[154]"
  3. 11 forx=0to64:gosub20:printtab(z)s$;:next:forx=0to512:next:goto25
  4. 20 z=int(20*rnd(1)):return
  5. 25 poke53280,0:poke53281,0:rem juchhu!
  6. 26 print"[147]   [213][178][201][213][201][176][201] [213][213][201] [213][201][213][201][213][201][213][201]":print"   [194][194][194][171][179][194][194] [194][194][194] [202][201][194][194][171] [171]  by [158]jtr in '99[154]"
  7. 27 print"   [203] [203][203][203][173][203] [203][203][203] [202][203][202][203][202][203][203]"
  8. 28 print"(w) fuer b-soft mit unterstuetzung von:[154]":gosub1999
  9. 29 print,"[157][157][157][157][213][201][213][213][178][201][213][201][213][201] [213][213][213][201][213][201] [213][201][213][178][201][213][201][213][213][201]"
  10. 30 print,"[157][157][157][157][202][201][194][194][194][194][194][194][194][194] [194][194][194][194][194][194] [202][201] [194] [171] [194][194][194]"
  11. 31 print,"[157][157][157][157][202][203][203][203][203][203][202][203][203][203] [202][203][202][203][203][203] [202][203] [203] [202][203][203][203][203]":gosub1999
  12. 32 print"ein herzlicher gruss an norman bates!!!"
  13. 33 print"druecke eine beliebige taste, um zu be-"
  14. 34 print," ginnen, du horst!":gosub999
  15. 35 print"[147]","und fick dich thedy!";:gosub1999
  16. 50 print"[147]kommen wir zur vorgeschichte. du hast"
  17. 51 print"aids im fortgeschrittenen stadium. dein"
  18. 52 print"kontostand spricht von einem weit ueber-";
  19. 53 print"zogenen dispositionskredit (die bank hat";
  20. 54 print"dir auch schon ein- oder zweimal ange-"
  21. 55 print"schrieben) und dein vater beichtete dir"
  22. 56 print"gerade gestern, dass er seit vier jahren";
  23. 57 print"heimlicher transvestit sei und sich im"
  24. 58 print"naechsten monat zur frau umoperieren"
  25. 59 print"lassen moechte. fuer dich gibt es nur"
  26. 60 print"einen ausweg: selbstmord! aber wie?"
  27. 61 print"(1) schwermetallverseuchte batterien"
  28. 62 print"    fressen und an der saeure verrecken?";
  29. 63 print"(2) den gasherd in deiner kueche auf die";
  30. 64 print"    hoechste stufe stellen und tapfer"
  31. 65 print"    hineinklettern?"
  32. 66 print"(3) "z$"gute zeiten, schlechte zeiten"z$" kon-";
  33. 67 print"    sumieren, um deinen suizid zu per-"
  34. 78 print"    fektionieren?"
  35. 79 gosub999
  36. 80 ifa$="1"then100
  37. 81 ifa$="2"then200
  38. 82 ifa$="3"then300
  39. 83 goto79
  40. 100 print"[147]ja klar, jetzt, wo die scheiss rot-grue-";
  41. 101 print"ne regierung an der macht ist, hat man"
  42. 102 print"so'nen muell ja auch noch im haushalt...";
  43. 103 print"von wegen! da du trotzdem deinen plan in";
  44. 104 print"die tat umsetzen willst, suchst du dei-"
  45. 105 print"nen naechsten lebensmittel-discounter"
  46. 106 print"auf, um dich am sondermuell-kanister zu"
  47. 107 print"laben. scheisse gelaufen, deine spiessi-";
  48. 108 print"gen nachbarn beobachten dich und brechen";
  49. 109 print"in hysterisches gelaechter aus. du hast"
  50. 110 print"zu wenig batteriesauere geschluckt; du"
  51. 111 print"kotzt auf den boden und blamierst dich"
  52. 112 print"zu tode!":printe$:gosub999:goto26
  53. 200 print"[147]ja prima! kaum unternimmst du diesen"
  54. 201 print"versuch, kommen ein paar gute freunde"
  55. 202 print"zu besuch, die bei dir eine pizza machen";
  56. 203 print"wollen. los, komm schon, sei kein spiel-";
  57. 204 print"verderber - mach 'ne gute miene zum boe-";
  58. 205 print"sen spiel - friss! die pizza schmeckt"
  59. 206 print"uebrigens scheisse! na ja...":printe$:gosub999:goto26
  60. 300 print"[147]nja, das gibt dir den rest. dein dasein"
  61. 301 print"auf erden endet hier...":print,"     gewonnen![153]"
  62. 310 print,"       [146]    [146]    [146]"
  63. 311 print,"      [146]   [146]  [146]   [146]"
  64. 312 print,"      [146]     [146]   [146]":new
  65. 999 geta$:ifa$=""then999
  66. 1000 return
  67. 1999 forx=0to1024:next:return
  68.